home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 40
/
040.d81
/
seq edit boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
50 lines
5 poke53280,.:poke53281,.
6 ifa=1 then print"";:goto 11
10 print"[147][146]";
11 print"[160] [158]l o a d s t a r"
20 print"[160] [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30 print"[160]"
40 print"[160] [156]presents - s e q - e d i t"
50 print
60 print
70 print" [155]0 's e q - e d i t ' 98 :3c"
80 print" 12 'seq edit.ml' prg"
90 print" 12 'research paper' seq"
100 print" 7 'file #101011' seq"
110 print" 12 'file #2020' seq"
120 print" 23 'mikes junk' seq"
130 print" 20 'jims report' seq"
140 print" 17 'data table' seq"
150 print" 999 'big file!' seq"
160 print" 4167 blocks free."
170 print
180 print
190 print" [154]written by scott reid"
200 print
210 print
213 print
220 print" [159]copyright 1987"
250 print"";
260 ifa=0thena=1:load"seq edit.ml",8,1
270 print" [129] press space to continue"
280 geta$:ifa$<>" "then280
400 print"[147] s e q e d i t
401 [153]"print# tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
405 print" r[152])[154] run seq-edit
406 [153]" qprint#)cont quit to loadstar
409 print"[154] enter selection : [152](r[153] or q[152])
410 [161]a$:[139]a$[178]"" [167] 410
411 [139]a$[178]"r" [167] 420
415 [139]a$[178]"q" [167] 430
417 [137] 410
420 [158]49152
430 [153]"on list do you wish to quit? (y/n) "
431 [161]a$:[139]a$[178]""[167]431
432 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]500
435 [139]a$[178]"n"[176]a$[178]"(NULL)"[167]400
440 [137] 431
500 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
510 [139]er[179][177]63 [167] [153]"load":[128]
520 [147]"hello connect",8,1
530 [128]